/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / PowerMac / Strip PPC-68k 1.0a1.sit / Strip PPC_68k / Source Kit ƒ / Strip68K / main.cpp

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 6d 61 69 6e 2e 63 | 70 70 00 00 00 00 00 00 |..main.c|pp......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 4d 43 | 43 00 00 00 00 00 00 00 |.TEXTMMC|C.......|
|00000050| 00 00 00 00 00 2f 62 00 | 00 01 7e aa 2b ca 10 aa |...../b.|..~.+...|
|00000060| 2b ca 10 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |+.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 7b 25 00 00 |........|....{%..|
|00000080| 2f 2a 09 6d 61 69 6e 2e | 63 70 70 0d 20 2a 0d 20 |/*.main.|cpp. *. |
|00000090| 2a 09 09 54 68 69 73 20 | 69 73 20 74 68 65 20 6d |*..This |is the m|
|000000a0| 61 69 6e 20 65 6e 74 72 | 79 20 70 6f 69 6e 74 20 |ain entr|y point |
|000000b0| 66 6f 72 20 74 68 65 20 | 63 6f 64 65 20 74 6f 20 |for the |code to |
|000000c0| 73 74 72 69 70 20 74 68 | 65 20 36 38 4b 20 72 65 |strip th|e 68K re|
|000000d0| 73 6f 75 72 63 65 73 0d | 20 2a 09 66 72 6f 6d 20 |sources.| *.from |
|000000e0| 61 20 66 61 74 20 62 69 | 6e 61 72 79 2e 20 54 68 |a fat bi|nary. Th|
|000000f0| 69 73 20 63 6f 64 65 20 | 77 69 6c 6c 20 68 65 6c |is code |will hel|
|00000100| 70 20 72 65 64 75 63 65 | 20 74 68 65 20 61 6d 6f |p reduce| the amo|
|00000110| 75 6e 74 20 6f 66 20 73 | 70 61 63 65 20 74 68 61 |unt of s|pace tha|
|00000120| 74 0d 20 2a 09 69 73 20 | 75 73 65 64 20 69 6e 73 |t. *.is |used ins|
|00000130| 69 64 65 20 6f 66 20 61 | 6e 20 61 70 70 6c 69 63 |ide of a|n applic|
|00000140| 61 74 69 6f 6e 20 6f 6e | 20 64 69 73 6b 2e 0d 20 |ation on| disk.. |
|00000150| 2a 0d 20 2a 09 09 43 6f | 64 65 20 63 72 65 61 74 |*. *..Co|de creat|
|00000160| 65 64 20 62 79 20 0d 20 | 2a 09 09 09 09 57 69 6c |ed by . |*....Wil|
|00000170| 6c 69 61 6d 20 45 64 77 | 61 72 64 20 57 6f 6f 64 |liam Edw|ard Wood|
|00000180| 79 0d 20 2a 09 09 09 09 | 49 6e 20 50 68 61 73 65 |y. *....|In Phase|
|00000190| 20 43 6f 6e 73 75 6c 74 | 69 6e 67 0d 20 2a 09 09 | Consult|ing. *..|
|000001a0| 09 09 33 33 37 20 57 65 | 73 74 20 43 61 6c 69 66 |..337 We|st Calif|
|000001b0| 6f 72 6e 69 61 20 23 34 | 0d 20 2a 09 09 09 09 47 |ornia #4|. *....G|
|000001c0| 6c 65 6e 64 61 6c 65 2c | 20 43 41 20 39 31 32 30 |lendale,| CA 9120|
|000001d0| 33 0d 20 2a 2f 0d 20 0d | 23 69 6e 63 6c 75 64 65 |3. */. .|#include|
|000001e0| 20 22 53 74 72 69 70 2e | 68 22 0d 0d 23 69 6e 63 | "Strip.|h"..#inc|
|000001f0| 6c 75 64 65 20 3c 41 70 | 70 6c 65 45 76 65 6e 74 |lude <Ap|pleEvent|
|00000200| 73 2e 68 3e 0d 23 69 6e | 63 6c 75 64 65 20 3c 47 |s.h>.#in|clude <G|
|00000210| 65 73 74 61 6c 74 45 71 | 75 2e 68 3e 0d 20 0d 2f |estaltEq|u.h>. ./|
|00000220| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000230| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000240| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000250| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000260| 2a 2a 2a 2a 2a 2a 2a 2a | 2f 0d 2f 2a 09 09 09 09 |********|/./*....|
|00000270| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 2a 2f |........|......*/|
|00000280| 0d 2f 2a 09 47 6c 6f 62 | 61 6c 73 2e 09 09 09 09 |./*.Glob|als.....|
|00000290| 09 09 09 09 09 09 09 09 | 09 09 09 2a 2f 0d 2f 2a |........|...*/./*|
|000002a0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|000002b0| 09 09 2a 2f 0d 2f 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..*/./**|********|
|000002c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2f 0d |********|******/.|
|00000300| 0d 69 6e 74 20 46 41 70 | 70 6c 65 45 76 65 6e 74 |.int FAp|pleEvent|
|00000310| 73 3b 0d 69 6e 74 20 46 | 48 61 73 46 53 53 70 65 |s;.int F|HasFSSpe|
|00000320| 63 3b 0d 69 6e 74 20 46 | 43 6f 6c 6f 72 51 75 69 |c;.int F|ColorQui|
|00000330| 63 6b 64 72 61 77 3b 0d | 41 45 45 76 65 6e 74 48 |ckdraw;.|AEEventH|
|00000340| 61 6e 64 6c 65 72 55 50 | 50 20 50 41 70 70 6c 65 |andlerUP|P PApple|
|00000350| 45 76 65 6e 74 50 72 6f | 63 65 73 73 50 72 6f 63 |EventPro|cessProc|
|00000360| 3b 0d 69 6e 74 20 51 75 | 69 74 46 6c 61 67 20 3d |;.int Qu|itFlag =|
|00000370| 20 30 3b 0d 69 6e 74 20 | 52 75 6e 45 76 65 6e 74 | 0;.int |RunEvent|
|00000380| 4c 6f 6f 70 20 3d 20 30 | 3b 0d 69 6e 74 20 53 61 |Loop = 0|;.int Sa|
|00000390| 77 4e 65 77 45 76 65 6e | 74 20 3d 20 30 3b 0d 69 |wNewEven|t = 0;.i|
|000003a0| 6e 74 09 44 6f 6e 65 45 | 76 65 6e 74 3b 0d 0d 2f |nt.DoneE|vent;../|
|000003b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000003c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000003d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000003e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000003f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2f 0d 2f 2a 09 09 09 09 |********|/./*....|
|00000400| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 2a 2f |........|......*/|
|00000410| 0d 2f 2a 09 47 65 6e 65 | 72 69 63 20 61 70 70 6c |./*.Gene|ric appl|
|00000420| 69 63 61 74 69 6f 6e 20 | 69 6e 69 74 69 61 6c 69 |ication |initiali|
|00000430| 7a 61 74 69 6f 6e 2e 09 | 09 09 09 09 09 09 09 09 |zation..|........|
|00000440| 2a 2f 0d 2f 2a 09 09 09 | 09 09 09 09 09 09 09 09 |*/./*...|........|
|00000450| 09 09 09 09 09 09 09 2a | 2f 0d 2f 2a 2a 2a 2a 2a |.......*|/./*****|
|00000460| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000470| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000480| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000490| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000004a0| 2a 2a 2a 2f 0d 0d 2f 2a | 09 49 6e 69 74 4d 61 63 |***/../*|.InitMac|
|000004b0| 69 6e 74 6f 73 68 4f 53 | 0d 20 2a 0d 20 2a 09 09 |intoshOS|. *. *..|
|000004c0| 54 68 69 73 20 64 6f 65 | 73 20 74 68 65 20 72 65 |This doe|s the re|
|000004d0| 71 75 69 72 65 64 20 6d | 69 6e 69 6d 75 6d 20 6f |quired m|inimum o|
|000004e0| 66 20 69 6e 69 74 69 61 | 6c 69 7a 61 74 69 6f 6e |f initia|lization|
|000004f0| 20 66 6f 72 20 74 68 65 | 20 4d 61 63 69 6e 74 6f | for the| Macinto|
|00000500| 73 68 0d 20 2a 09 6f 70 | 65 72 61 74 69 6e 67 20 |sh. *.op|erating |
|00000510| 73 79 73 74 65 6d 2e 0d | 20 2a 2f 0d 0d 73 74 61 |system..| */..sta|
|00000520| 74 69 63 20 76 6f 69 64 | 20 49 6e 69 74 4d 61 63 |tic void| InitMac|
|00000530| 69 6e 74 6f 73 68 4f 53 | 28 76 6f 69 64 29 0d 7b |intoshOS|(void).{|
|00000540| 0d 09 49 6e 69 74 47 72 | 61 66 28 26 71 64 2e 74 |..InitGr|af(&qd.t|
|00000550| 68 65 50 6f 72 74 29 3b | 09 09 09 09 09 2f 2a 09 |hePort);|...../*.|
|00000560| 49 6e 69 74 20 71 75 69 | 63 6b 64 72 61 77 20 64 |Init qui|ckdraw d|
|00000570| 69 73 70 6c 61 79 09 2a | 2f 0d 09 49 6e 69 74 46 |isplay.*|/..InitF|
|00000580| 6f 6e 74 73 28 29 3b 09 | 09 09 09 09 09 09 2f 2a |onts();.|....../*|
|00000590| 09 49 6e 69 74 69 61 6c | 69 7a 65 20 66 6f 6e 74 |.Initial|ize font|
|000005a0| 73 09 09 2a 2f 0d 09 49 | 6e 69 74 57 69 6e 64 6f |s..*/..I|nitWindo|
|000005b0| 77 73 28 29 3b 09 09 09 | 09 09 09 09 2f 2a 09 49 |ws();...|..../*.I|
|000005c0| 6e 69 74 69 61 6c 69 7a | 65 20 77 69 6e 64 6f 77 |nitializ|e window|
|000005d0| 73 09 09 2a 2f 0d 09 49 | 6e 69 74 4d 65 6e 75 73 |s..*/..I|nitMenus|
|000005e0| 28 29 3b 09 09 09 09 09 | 09 09 2f 2a 09 49 6e 69 |();.....|../*.Ini|
|000005f0| 74 69 61 6c 69 7a 65 20 | 6d 65 6e 75 20 6d 61 6e |tialize |menu man|
|00000600| 67 6c 65 72 09 2a 2f 0d | 09 54 45 49 6e 69 74 28 |gler.*/.|.TEInit(|
|00000610| 29 3b 09 09 09 09 09 09 | 09 09 2f 2a 09 49 6e 69 |);......|../*.Ini|
|00000620| 74 69 61 6c 69 7a 65 20 | 74 65 78 74 20 65 64 69 |tialize |text edi|
|00000630| 74 6f 72 09 2a 2f 0d 09 | 49 6e 69 74 44 69 61 6c |tor.*/..|InitDial|
|00000640| 6f 67 73 28 4e 55 4c 4c | 29 3b 09 09 09 09 09 09 |ogs(NULL|);......|
|00000650| 2f 2a 09 49 6e 69 74 69 | 61 6c 69 7a 65 20 64 69 |/*.Initi|alize di|
|00000660| 61 6c 6f 67 20 62 6f 78 | 09 2a 2f 0d 0d 09 46 6c |alog box|.*/...Fl|
|00000670| 75 73 68 45 76 65 6e 74 | 73 28 65 76 65 72 79 45 |ushEvent|s(everyE|
|00000680| 76 65 6e 74 2c 30 29 3b | 09 09 09 09 2f 2a 09 46 |vent,0);|..../*.F|
|00000690| 6c 75 73 68 20 61 6c 6c | 20 65 76 65 6e 74 73 09 |lush all| events.|
|000006a0| 09 2a 2f 0d 09 49 6e 69 | 74 43 75 72 73 6f 72 28 |.*/..Ini|tCursor(|
|000006b0| 29 3b 09 09 09 09 09 09 | 09 2f 2a 09 50 75 74 20 |);......|./*.Put |
|000006c0| 75 70 20 61 72 72 6f 77 | 20 63 75 72 73 6f 72 09 |up arrow| cursor.|
|000006d0| 09 2a 2f 0d 7d 0d 0d 2f | 2a 09 49 6e 69 74 4d 65 |.*/.}../|*.InitMe|
|000006e0| 6e 75 42 61 72 0d 20 2a | 0d 20 2a 09 09 54 68 69 |nuBar. *|. *..Thi|
|000006f0| 73 20 69 6e 69 74 69 61 | 6c 69 7a 65 73 20 74 68 |s initia|lizes th|
|00000700| 65 20 6d 65 6e 75 20 62 | 61 72 0d 20 2a 2f 0d 0d |e menu b|ar. */..|
|00000710| 73 74 61 74 69 63 20 76 | 6f 69 64 20 49 6e 69 74 |static v|oid Init|
|00000720| 4d 65 6e 75 42 61 72 28 | 76 6f 69 64 29 0d 7b 0d |MenuBar(|void).{.|
|00000730| 09 4d 65 6e 75 48 61 6e | 64 6c 65 20 6d 68 3b 0d |.MenuHan|dle mh;.|
|00000740| 09 48 61 6e 64 6c 65 20 | 6d 65 6e 75 42 61 72 3b |.Handle |menuBar;|
|00000750| 0d 0d 09 6d 65 6e 75 42 | 61 72 20 3d 20 47 65 74 |...menuB|ar = Get|
|00000760| 4e 65 77 4d 42 61 72 28 | 31 32 38 29 3b 0d 09 53 |NewMBar(|128);..S|
|00000770| 65 74 4d 65 6e 75 42 61 | 72 28 6d 65 6e 75 42 61 |etMenuBa|r(menuBa|
|00000780| 72 29 3b 0d 09 0d 09 6d | 68 20 3d 20 47 65 74 4d |r);....m|h = GetM|
|00000790| 65 6e 75 28 4d 41 70 70 | 6c 65 29 3b 0d 09 41 64 |enu(MApp|le);..Ad|
|000007a0| 64 52 65 73 4d 65 6e 75 | 28 6d 68 2c 27 44 52 56 |dResMenu|(mh,'DRV|
|000007b0| 52 27 29 3b 0d 0d 09 44 | 72 61 77 4d 65 6e 75 42 |R');...D|rawMenuB|
|000007c0| 61 72 28 29 3b 0d 7d 0d | 0d 2f 2a 09 47 65 74 4d |ar();.}.|./*.GetM|
|000007d0| 61 63 69 6e 74 6f 73 68 | 45 6e 76 69 72 6f 6e 6d |acintosh|Environm|
|000007e0| 65 6e 74 0d 20 2a 0d 20 | 2a 09 09 47 65 74 20 74 |ent. *. |*..Get t|
|000007f0| 68 65 20 63 75 72 72 65 | 6e 74 20 6f 70 65 72 61 |he curre|nt opera|
|00000800| 74 69 6e 67 20 73 79 73 | 74 65 6d 20 65 6e 76 69 |ting sys|tem envi|
|00000810| 72 6f 6e 6d 65 6e 74 20 | 73 74 61 74 65 0d 20 2a |ronment |state. *|
|00000820| 2f 0d 0d 73 74 61 74 69 | 63 20 76 6f 69 64 20 47 |/..stati|c void G|
|00000830| 65 74 4d 61 63 69 6e 74 | 6f 73 68 45 6e 76 69 72 |etMacint|oshEnvir|
|00000840| 6f 6e 6d 65 6e 74 28 76 | 6f 69 64 29 0d 7b 0d 09 |onment(v|oid).{..|
|00000850| 6c 6f 6e 67 20 76 61 6c | 3b 0d 09 0d 09 2f 2a 0d |long val|;..../*.|
|00000860| 09 20 2a 09 43 6f 6c 6f | 72 20 51 75 69 63 6b 64 |. *.Colo|r Quickd|
|00000870| 72 61 77 3f 09 09 09 09 | 09 2d 2d 20 53 79 73 74 |raw?....|.-- Syst|
|00000880| 65 6d 20 35 2e 30 20 6f | 72 20 67 72 65 61 74 65 |em 5.0 o|r greate|
|00000890| 72 0d 09 20 2a 2f 0d 09 | 20 0d 09 69 66 20 28 21 |r.. */..| ..if (!|
|000008a0| 47 65 73 74 61 6c 74 28 | 67 65 73 74 61 6c 74 51 |Gestalt(|gestaltQ|
|000008b0| 75 69 63 6b 64 72 61 77 | 56 65 72 73 69 6f 6e 2c |uickdraw|Version,|
|000008c0| 26 76 61 6c 29 29 20 7b | 0d 09 09 46 43 6f 6c 6f |&val)) {|...FColo|
|000008d0| 72 51 75 69 63 6b 64 72 | 61 77 20 3d 20 28 76 61 |rQuickdr|aw = (va|
|000008e0| 6c 20 3e 3d 20 30 78 31 | 30 30 29 20 3f 20 31 20 |l >= 0x1|00) ? 1 |
|000008f0| 3a 20 30 3b 0d 09 7d 20 | 65 6c 73 65 20 7b 0d 09 |: 0;..} |else {..|
|00000900| 09 46 43 6f 6c 6f 72 51 | 75 69 63 6b 64 72 61 77 |.FColorQ|uickdraw|
|00000910| 20 3d 20 30 3b 0d 09 7d | 0d 0d 09 2f 2a 0d 09 20 | = 0;..}|.../*.. |
|00000920| 2a 09 41 70 70 6c 65 20 | 45 76 65 6e 74 73 3f 09 |*.Apple |Events?.|
|00000930| 09 09 09 09 09 2d 2d 20 | 53 79 73 74 65 6d 20 37 |.....-- |System 7|
|00000940| 2e 30 20 6f 72 20 67 72 | 65 61 74 65 72 0d 09 20 |.0 or gr|eater.. |
|00000950| 2a 2f 0d 09 20 0d 09 69 | 66 20 28 21 47 65 73 74 |*/.. ..i|f (!Gest|
|00000960| 61 6c 74 28 67 65 73 74 | 61 6c 74 41 70 70 6c 65 |alt(gest|altApple|
|00000970| 45 76 65 6e 74 73 41 74 | 74 72 2c 26 76 61 6c 29 |EventsAt|tr,&val)|
|00000980| 29 20 7b 0d 09 09 46 41 | 70 70 6c 65 45 76 65 6e |) {...FA|ppleEven|
|00000990| 74 73 20 3d 20 28 76 61 | 6c 20 26 20 28 31 20 3c |ts = (va|l & (1 <|
|000009a0| 3c 20 67 65 73 74 61 6c | 74 41 70 70 6c 65 45 76 |< gestal|tAppleEv|
|000009b0| 65 6e 74 73 50 72 65 73 | 65 6e 74 29 29 20 3f 20 |entsPres|ent)) ? |
|000009c0| 31 20 3a 20 30 3b 0d 09 | 7d 20 65 6c 73 65 20 7b |1 : 0;..|} else {|
|000009d0| 0d 09 09 46 41 70 70 6c | 65 45 76 65 6e 74 73 20 |...FAppl|eEvents |
|000009e0| 3d 20 30 3b 0d 09 7d 0d | 09 0d 09 2f 2a 0d 09 20 |= 0;..}.|.../*.. |
|000009f0| 2a 09 46 53 53 70 65 63 | 20 66 69 6c 65 73 3f 09 |*.FSSpec| files?.|
|00000a00| 09 09 09 09 09 2d 2d 20 | 53 79 73 74 65 6d 20 37 |.....-- |System 7|
|00000a10| 2e 30 20 6f 72 20 67 72 | 65 61 74 65 72 0d 09 20 |.0 or gr|eater.. |
|00000a20| 2a 2f 0d 09 20 0d 09 69 | 66 20 28 21 47 65 73 74 |*/.. ..i|f (!Gest|
|00000a30| 61 6c 74 28 67 65 73 74 | 61 6c 74 46 53 41 74 74 |alt(gest|altFSAtt|
|00000a40| 72 2c 26 76 61 6c 29 29 | 20 7b 0d 09 09 46 48 61 |r,&val))| {...FHa|
|00000a50| 73 46 53 53 70 65 63 20 | 3d 20 28 76 61 6c 20 26 |sFSSpec |= (val &|
|00000a60| 20 28 31 20 3c 3c 20 67 | 65 73 74 61 6c 74 48 61 | (1 << g|estaltHa|
|00000a70| 73 46 53 53 70 65 63 43 | 61 6c 6c 73 29 29 20 3f |sFSSpecC|alls)) ?|
|00000a80| 20 31 20 3a 20 30 3b 0d | 09 7d 20 65 6c 73 65 20 | 1 : 0;.|.} else |
|00000a90| 7b 0d 09 09 46 48 61 73 | 46 53 53 70 65 63 20 3d |{...FHas|FSSpec =|
|00000aa0| 20 30 3b 0d 09 7d 0d 7d | 0d 0d 2f 2a 2a 2a 2a 2a | 0;..}.}|../*****|
|00000ab0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ac0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ad0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ae0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000af0| 2a 2a 2a 2f 0d 2f 2a 09 | 09 09 09 09 09 09 09 09 |***/./*.|........|
|00000b00| 09 09 09 09 09 09 09 09 | 09 2a 2f 0d 2f 2a 09 53 |........|.*/./*.S|
|00000b10| 79 73 74 65 6d 20 37 20 | 28 41 70 70 6c 65 20 45 |ystem 7 |(Apple E|
|00000b20| 76 65 6e 74 29 20 73 75 | 70 70 6f 72 74 2e 09 09 |vent) su|pport...|
|00000b30| 09 09 09 09 09 09 09 09 | 2a 2f 0d 2f 2a 09 09 09 |........|*/./*...|
|00000b40| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 2a |........|.......*|
|00000b50| 2f 0d 2f 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |/./*****|********|
|00000b60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2f 0d 0d 2f 2a |********|***/../*|
|00000ba0| 09 47 6f 74 52 65 71 75 | 69 72 65 64 50 61 72 61 |.GotRequ|iredPara|
|00000bb0| 6d 73 0d 20 2a 0d 20 2a | 09 09 57 65 72 65 20 61 |ms. *. *|..Were a|
|00000bc0| 6c 6c 20 6f 66 20 74 68 | 65 20 72 65 71 75 69 72 |ll of th|e requir|
|00000bd0| 65 64 20 70 61 72 61 6d | 65 74 65 72 73 20 72 65 |ed param|eters re|
|00000be0| 74 75 72 6e 65 64 3f 0d | 20 2a 2f 0d 0d 73 74 61 |turned?.| */..sta|
|00000bf0| 74 69 63 20 4f 53 45 72 | 72 20 47 6f 74 52 65 71 |tic OSEr|r GotReq|
|00000c00| 75 69 72 65 64 50 61 72 | 61 6d 73 28 41 70 70 6c |uiredPar|ams(Appl|
|00000c10| 65 45 76 65 6e 74 20 2a | 65 76 65 6e 74 29 0d 7b |eEvent *|event).{|
|00000c20| 0d 09 4f 53 45 72 72 20 | 6d 79 45 72 72 3b 0d 09 |..OSErr |myErr;..|
|00000c30| 6c 6f 6e 67 20 73 69 7a | 65 3b 0d 09 44 65 73 63 |long siz|e;..Desc|
|00000c40| 54 79 70 65 20 72 65 74 | 75 72 6e 54 79 70 65 3b |Type ret|urnType;|
|00000c50| 0d 09 0d 09 6d 79 45 72 | 72 20 3d 20 41 45 47 65 |....myEr|r = AEGe|
|00000c60| 74 41 74 74 72 69 62 75 | 74 65 50 74 72 28 65 76 |tAttribu|tePtr(ev|
|00000c70| 65 6e 74 2c 6b 65 79 4d | 69 73 73 65 64 4b 65 79 |ent,keyM|issedKey|
|00000c80| 77 6f 72 64 41 74 74 72 | 2c 74 79 70 65 57 69 6c |wordAttr|,typeWil|
|00000c90| 64 43 61 72 64 2c 26 72 | 65 74 75 72 6e 54 79 70 |dCard,&r|eturnTyp|
|00000ca0| 65 2c 4e 55 4c 4c 2c 30 | 2c 26 73 69 7a 65 29 3b |e,NULL,0|,&size);|
|00000cb0| 0d 09 69 66 20 28 6d 79 | 45 72 72 20 3d 3d 20 6e |..if (my|Err == n|
|00000cc0| 6f 45 72 72 29 20 72 65 | 74 75 72 6e 20 65 72 72 |oErr) re|turn err|
|00000cd0| 41 45 50 61 72 61 6d 4d | 69 73 73 65 64 3b 0d 09 |AEParamM|issed;..|
|00000ce0| 65 6c 73 65 20 69 66 20 | 28 6d 79 45 72 72 20 3d |else if |(myErr =|
|00000cf0| 3d 20 65 72 72 41 45 44 | 65 73 63 4e 6f 74 46 6f |= errAED|escNotFo|
|00000d00| 75 6e 64 29 20 72 65 74 | 75 72 6e 20 6e 6f 45 72 |und) ret|urn noEr|
|00000d10| 72 3b 0d 09 65 6c 73 65 | 20 72 65 74 75 72 6e 20 |r;..else| return |
|00000d20| 6d 79 45 72 72 3b 0d 7d | 0d 0d 2f 2a 09 41 70 70 |myErr;.}|../*.App|
|00000d30| 6c 65 45 76 65 6e 74 50 | 72 6f 63 65 73 73 50 72 |leEventP|rocessPr|
|00000d40| 6f 63 0d 20 2a 0d 20 2a | 09 09 54 68 69 73 20 69 |oc. *. *|..This i|
|00000d50| 73 20 74 68 65 20 70 72 | 6f 63 65 64 75 72 65 20 |s the pr|ocedure |
|00000d60| 75 73 65 64 20 74 6f 20 | 70 72 6f 63 65 73 73 20 |used to |process |
|00000d70| 61 6e 20 61 70 70 6c 65 | 20 65 76 65 6e 74 2e 0d |an apple| event..|
|00000d80| 20 2a 2f 0d 0d 73 74 61 | 74 69 63 20 70 61 73 63 | */..sta|tic pasc|
|00000d90| 61 6c 20 4f 53 45 72 72 | 20 41 70 70 6c 65 45 76 |al OSErr| AppleEv|
|00000da0| 65 6e 74 50 72 6f 63 65 | 73 73 50 72 6f 63 28 41 |entProce|ssProc(A|
|00000db0| 70 70 6c 65 45 76 65 6e | 74 20 2a 65 76 65 6e 74 |ppleEven|t *event|
|00000dc0| 2c 20 41 70 70 6c 65 45 | 76 65 6e 74 20 2a 2c 20 |, AppleE|vent *, |
|00000dd0| 6c 6f 6e 67 29 0d 7b 0d | 09 4f 53 45 72 72 20 6d |long).{.|.OSErr m|
|00000de0| 79 45 72 72 3b 0d 09 6c | 6f 6e 67 20 65 43 6c 61 |yErr;..l|ong eCla|
|00000df0| 73 73 2c 65 54 79 70 65 | 3b 0d 09 44 65 73 63 54 |ss,eType|;..DescT|
|00000e00| 79 70 65 20 72 65 74 75 | 72 6e 54 79 70 65 3b 0d |ype retu|rnType;.|
|00000e10| 09 6c 6f 6e 67 20 73 69 | 7a 65 3b 0d 09 6c 6f 6e |.long si|ze;..lon|
|00000e20| 67 20 6f 66 66 2c 6c 65 | 6e 3b 0d 09 41 45 44 65 |g off,le|n;..AEDe|
|00000e30| 73 63 4c 69 73 74 20 64 | 6f 63 4c 69 73 74 3b 0d |scList d|ocList;.|
|00000e40| 09 41 45 4b 65 79 77 6f | 72 64 20 6b 65 79 57 6f |.AEKeywo|rd keyWo|
|00000e50| 72 64 3b 0d 09 46 53 53 | 70 65 63 20 66 69 6c 65 |rd;..FSS|pec file|
|00000e60| 3b 0d 09 0d 09 2f 2a 0d | 09 20 2a 09 47 65 74 20 |;..../*.|. *.Get |
|00000e70| 74 68 65 20 41 70 70 6c | 65 20 45 76 65 6e 74 20 |the Appl|e Event |
|00000e80| 6d 65 73 73 61 67 65 20 | 74 79 70 65 0d 09 20 2a |message |type.. *|
|00000e90| 2f 0d 09 0d 09 69 66 20 | 28 6e 6f 45 72 72 20 21 |/....if |(noErr !|
|00000ea0| 3d 20 28 6d 79 45 72 72 | 20 3d 20 41 45 47 65 74 |= (myErr| = AEGet|
|00000eb0| 41 74 74 72 69 62 75 74 | 65 50 74 72 28 65 76 65 |Attribut|ePtr(eve|
|00000ec0| 6e 74 2c 6b 65 79 45 76 | 65 6e 74 43 6c 61 73 73 |nt,keyEv|entClass|
|00000ed0| 41 74 74 72 2c 74 79 70 | 65 54 79 70 65 2c 26 72 |Attr,typ|eType,&r|
|00000ee0| 65 74 75 72 6e 54 79 70 | 65 2c 28 50 74 72 29 26 |eturnTyp|e,(Ptr)&|
|00000ef0| 65 43 6c 61 73 73 2c 73 | 69 7a 65 6f 66 28 65 43 |eClass,s|izeof(eC|
|00000f00| 6c 61 73 73 29 2c 26 73 | 69 7a 65 29 29 29 20 72 |lass),&s|ize))) r|
|00000f10| 65 74 75 72 6e 20 6d 79 | 45 72 72 3b 0d 09 69 66 |eturn my|Err;..if|
|00000f20| 20 28 6e 6f 45 72 72 20 | 21 3d 20 28 6d 79 45 72 | (noErr |!= (myEr|
|00000f30| 72 20 3d 20 41 45 47 65 | 74 41 74 74 72 69 62 75 |r = AEGe|tAttribu|
|00000f40| 74 65 50 74 72 28 65 76 | 65 6e 74 2c 6b 65 79 45 |tePtr(ev|ent,keyE|
|00000f50| 76 65 6e 74 49 44 41 74 | 74 72 2c 74 79 70 65 54 |ventIDAt|tr,typeT|
|00000f60| 79 70 65 2c 26 72 65 74 | 75 72 6e 54 79 70 65 2c |ype,&ret|urnType,|
|00000f70| 28 50 74 72 29 26 65 54 | 79 70 65 2c 73 69 7a 65 |(Ptr)&eT|ype,size|
|00000f80| 6f 66 28 65 54 79 70 65 | 29 2c 26 73 69 7a 65 29 |of(eType|),&size)|
|00000f90| 29 29 20 72 65 74 75 72 | 6e 20 6d 79 45 72 72 3b |)) retur|n myErr;|
|00000fa0| 0d 09 0d 09 2f 2a 0d 09 | 20 2a 09 57 65 27 76 65 |..../*..| *.We've|
|00000fb0| 20 6e 6f 77 20 67 6f 74 | 20 74 68 65 20 63 6c 61 | now got| the cla|
|00000fc0| 73 73 20 61 6e 64 20 74 | 79 70 65 20 6f 66 20 74 |ss and t|ype of t|
|00000fd0| 68 65 20 65 76 65 6e 74 | 2e 20 44 69 73 70 61 74 |he event|. Dispat|
|00000fe0| 63 68 20 66 6f 72 20 74 | 68 65 0d 09 20 2a 09 63 |ch for t|he.. *.c|
|00000ff0| 6f 6d 6d 6f 6e 20 66 6f | 75 72 20 65 6e 74 72 79 |ommon fo|ur entry|
|00001000| 20 70 6f 69 6e 74 73 2e | 0d 09 20 2a 2f 0d 09 0d | points.|.. */...|
|00001010| 09 69 66 20 28 65 43 6c | 61 73 73 20 3d 3d 20 6b |.if (eCl|ass == k|
|00001020| 43 6f 72 65 45 76 65 6e | 74 43 6c 61 73 73 29 20 |CoreEven|tClass) |
|00001030| 7b 0d 09 09 73 77 69 74 | 63 68 20 28 65 54 79 70 |{...swit|ch (eTyp|
|00001040| 65 29 20 7b 0d 09 09 09 | 63 61 73 65 20 6b 41 45 |e) {....|case kAE|
|00001050| 4f 70 65 6e 41 70 70 6c | 69 63 61 74 69 6f 6e 3a |OpenAppl|ication:|
|00001060| 0d 09 09 09 09 2f 2a 0d | 09 09 09 09 20 2a 09 4e |...../*.|.... *.N|
|00001070| 65 77 20 61 70 70 6c 69 | 63 61 74 69 6f 6e 20 65 |ew appli|cation e|
|00001080| 76 65 6e 74 0d 09 09 09 | 09 20 2a 2f 0d 09 09 09 |vent....|. */....|
|00001090| 09 0d 09 09 09 09 6d 79 | 45 72 72 20 3d 20 47 6f |......my|Err = Go|
|000010a0| 74 52 65 71 75 69 72 65 | 64 50 61 72 61 6d 73 28 |tRequire|dParams(|
|000010b0| 65 76 65 6e 74 29 3b 0d | 09 09 09 09 69 66 20 28 |event);.|....if (|
|000010c0| 6d 79 45 72 72 20 3d 3d | 20 6e 6f 45 72 72 29 20 |myErr ==| noErr) |
|000010d0| 7b 0d 09 09 09 09 09 53 | 61 77 4e 65 77 45 76 65 |{......S|awNewEve|
|000010e0| 6e 74 20 3d 20 31 3b 0d | 09 09 09 09 09 49 6e 69 |nt = 1;.|.....Ini|
|000010f0| 74 4d 65 6e 75 42 61 72 | 28 29 3b 0d 09 09 09 09 |tMenuBar|();.....|
|00001100| 7d 0d 09 09 09 09 72 65 | 74 75 72 6e 20 6d 79 45 |}.....re|turn myE|
|00001110| 72 72 3b 0d 09 09 09 63 | 61 73 65 20 6b 41 45 4f |rr;....c|ase kAEO|
|00001120| 70 65 6e 44 6f 63 75 6d | 65 6e 74 73 3a 0d 09 09 |penDocum|ents:...|
|00001130| 09 09 2f 2a 0d 09 09 09 | 09 20 2a 09 4f 70 65 6e |../*....|. *.Open|
|00001140| 20 6e 65 77 20 64 6f 63 | 75 6d 65 6e 74 73 0d 09 | new doc|uments..|
|00001150| 09 09 09 20 2a 2f 0d 09 | 09 09 09 0d 09 09 09 09 |... */..|........|
|00001160| 69 66 20 28 6e 6f 45 72 | 72 20 21 3d 20 28 6d 79 |if (noEr|r != (my|
|00001170| 45 72 72 20 3d 20 41 45 | 47 65 74 50 61 72 61 6d |Err = AE|GetParam|
|00001180| 44 65 73 63 28 65 76 65 | 6e 74 2c 6b 65 79 44 69 |Desc(eve|nt,keyDi|
|00001190| 72 65 63 74 4f 62 6a 65 | 63 74 2c 74 79 70 65 41 |rectObje|ct,typeA|
|000011a0| 45 4c 69 73 74 2c 26 64 | 6f 63 4c 69 73 74 29 29 |EList,&d|ocList))|
|000011b0| 29 20 72 65 74 75 72 6e | 20 6d 79 45 72 72 3b 0d |) return| myErr;.|
|000011c0| 09 09 09 09 69 66 20 28 | 6e 6f 45 72 72 20 21 3d |....if (|noErr !=|
|000011d0| 20 28 6d 79 45 72 72 20 | 3d 20 41 45 43 6f 75 6e | (myErr |= AECoun|
|000011e0| 74 49 74 65 6d 73 28 26 | 64 6f 63 4c 69 73 74 2c |tItems(&|docList,|
|000011f0| 26 6c 65 6e 29 29 29 20 | 7b 0d 09 09 09 09 09 41 |&len))) |{......A|
|00001200| 45 44 69 73 70 6f 73 65 | 44 65 73 63 28 26 64 6f |EDispose|Desc(&do|
|00001210| 63 4c 69 73 74 29 3b 0d | 09 09 09 09 09 72 65 74 |cList);.|.....ret|
|00001220| 75 72 6e 20 6d 79 45 72 | 72 3b 0d 09 09 09 09 7d |urn myEr|r;.....}|
|00001230| 0d 09 09 09 09 66 6f 72 | 20 28 6f 66 66 20 3d 20 |.....for| (off = |
|00001240| 31 3b 20 6f 66 66 20 3c | 3d 20 6c 65 6e 3b 20 6f |1; off <|= len; o|
|00001250| 66 66 2b 2b 29 20 7b 0d | 09 09 09 09 09 69 66 20 |ff++) {.|.....if |
|00001260| 28 6e 6f 45 72 72 20 21 | 3d 20 28 6d 79 45 72 72 |(noErr !|= (myErr|
|00001270| 20 3d 20 41 45 47 65 74 | 4e 74 68 50 74 72 28 26 | = AEGet|NthPtr(&|
|00001280| 64 6f 63 4c 69 73 74 2c | 6f 66 66 2c 74 79 70 65 |docList,|off,type|
|00001290| 46 53 53 2c 26 6b 65 79 | 57 6f 72 64 2c 26 72 65 |FSS,&key|Word,&re|
|000012a0| 74 75 72 6e 54 79 70 65 | 2c 28 50 74 72 29 26 66 |turnType|,(Ptr)&f|
|000012b0| 69 6c 65 2c 73 69 7a 65 | 6f 66 28 66 69 6c 65 29 |ile,size|of(file)|
|000012c0| 2c 26 73 69 7a 65 29 29 | 29 20 7b 0d 09 09 09 09 |,&size))|) {.....|
|000012d0| 09 09 41 45 44 69 73 70 | 6f 73 65 44 65 73 63 28 |..AEDisp|oseDesc(|
|000012e0| 26 64 6f 63 4c 69 73 74 | 29 3b 0d 09 09 09 09 09 |&docList|);......|
|000012f0| 09 72 65 74 75 72 6e 20 | 6d 79 45 72 72 3b 0d 09 |.return |myErr;..|
|00001300| 09 09 09 09 7d 0d 09 09 | 09 09 09 0d 09 09 09 09 |....}...|........|
|00001310| 09 53 74 72 69 70 46 69 | 6c 65 28 26 66 69 6c 65 |.StripFi|le(&file|
|00001320| 29 3b 0d 09 09 09 09 09 | 69 66 20 28 21 53 61 77 |);......|if (!Saw|
|00001330| 4e 65 77 45 76 65 6e 74 | 29 20 52 75 6e 45 76 65 |NewEvent|) RunEve|
|00001340| 6e 74 4c 6f 6f 70 20 3d | 20 30 3b 09 2f 2f 20 53 |ntLoop =| 0;.// S|
|00001350| 74 6f 70 20 72 75 6e 6e | 69 6e 67 20 6f 6e 20 66 |top runn|ing on f|
|00001360| 69 72 73 74 20 4e 55 4c | 4c 0d 09 09 09 09 7d 0d |irst NUL|L.....}.|
|00001370| 09 09 09 09 41 45 44 69 | 73 70 6f 73 65 44 65 73 |....AEDi|sposeDes|
|00001380| 63 28 26 64 6f 63 4c 69 | 73 74 29 3b 0d 09 09 09 |c(&docLi|st);....|
|00001390| 09 62 72 65 61 6b 3b 0d | 09 09 09 63 61 73 65 20 |.break;.|...case |
|000013a0| 6b 41 45 51 75 69 74 41 | 70 70 6c 69 63 61 74 69 |kAEQuitA|pplicati|
|000013b0| 6f 6e 3a 0d 09 09 09 09 | 2f 2a 0d 09 09 09 09 20 |on:.....|/*..... |
|000013c0| 2a 09 51 75 69 74 20 74 | 68 69 73 20 61 70 70 6c |*.Quit t|his appl|
|000013d0| 69 63 61 74 69 6f 6e 0d | 09 09 09 09 20 2a 2f 0d |ication.|.... */.|
|000013e0| 09 09 09 09 0d 09 09 09 | 09 6d 79 45 72 72 20 3d |........|.myErr =|
|000013f0| 20 47 6f 74 52 65 71 75 | 69 72 65 64 50 61 72 61 | GotRequ|iredPara|
|00001400| 6d 73 28 65 76 65 6e 74 | 29 3b 0d 09 09 09 09 69 |ms(event|);.....i|
|00001410| 66 20 28 6d 79 45 72 72 | 20 3d 3d 20 6e 6f 45 72 |f (myErr| == noEr|
|00001420| 72 29 20 7b 0d 09 09 09 | 09 09 51 75 69 74 46 6c |r) {....|..QuitFl|
|00001430| 61 67 20 3d 20 31 3b 0d | 09 09 09 09 09 72 65 74 |ag = 1;.|.....ret|
|00001440| 75 72 6e 20 6e 6f 45 72 | 72 3b 0d 09 09 09 09 7d |urn noEr|r;.....}|
|00001450| 20 65 6c 73 65 20 72 65 | 74 75 72 6e 20 6d 79 45 | else re|turn myE|
|00001460| 72 72 3b 0d 09 09 09 64 | 65 66 61 75 6c 74 3a 0d |rr;....d|efault:.|
|00001470| 09 09 09 09 72 65 74 75 | 72 6e 20 65 72 72 41 45 |....retu|rn errAE|
|00001480| 45 76 65 6e 74 4e 6f 74 | 48 61 6e 64 6c 65 64 3b |EventNot|Handled;|
|00001490| 09 09 09 2f 2f 20 4e 6f | 74 20 61 62 6c 65 20 74 |...// No|t able t|
|000014a0| 6f 20 68 61 6e 64 6c 65 | 20 65 76 65 6e 74 0d 09 |o handle| event..|
|000014b0| 09 7d 0d 09 0d 09 09 72 | 65 74 75 72 6e 20 47 6f |.}.....r|eturn Go|
|000014c0| 74 52 65 71 75 69 72 65 | 64 50 61 72 61 6d 73 28 |tRequire|dParams(|
|000014d0| 65 76 65 6e 74 29 3b 09 | 09 09 09 2f 2f 20 46 61 |event);.|...// Fa|
|000014e0| 6c 6c 20 74 68 72 6f 75 | 67 68 20 74 6f 20 68 61 |ll throu|gh to ha|
|000014f0| 6e 64 6c 65 20 74 68 69 | 73 09 09 0d 09 7d 0d 09 |ndle thi|s....}..|
|00001500| 0d 09 2f 2a 0d 09 20 2a | 09 50 72 6f 63 65 73 73 |../*.. *|.Process|
|00001510| 20 74 68 65 20 72 65 73 | 74 20 6f 66 20 74 68 65 | the res|t of the|
|00001520| 20 70 6f 73 73 69 62 6c | 65 20 65 76 65 6e 74 73 | possibl|e events|
|00001530| 0d 09 20 2a 2f 0d 09 0d | 09 72 65 74 75 72 6e 20 |.. */...|.return |
|00001540| 65 72 72 41 45 45 76 65 | 6e 74 4e 6f 74 48 61 6e |errAEEve|ntNotHan|
|00001550| 64 6c 65 64 3b 0d 7d 0d | 0d 2f 2a 09 49 6e 69 74 |dled;.}.|./*.Init|
|00001560| 41 70 70 6c 65 45 76 65 | 6e 74 73 0d 20 2a 0d 20 |AppleEve|nts. *. |
|00001570| 2a 09 09 54 68 69 73 20 | 64 6f 65 73 20 74 68 65 |*..This |does the|
|00001580| 20 72 65 71 75 69 72 65 | 64 20 69 6e 69 74 69 61 | require|d initia|
|00001590| 6c 69 7a 61 74 69 6f 6e | 20 74 6f 20 69 6e 73 74 |lization| to inst|
|000015a0| 61 6c 6c 20 74 68 65 20 | 61 62 6f 76 65 20 72 6f |all the |above ro|
|000015b0| 75 74 69 6e 65 0d 20 2a | 09 69 6e 74 6f 20 74 68 |utine. *|.into th|
|000015c0| 65 20 6c 69 73 74 20 6f | 66 20 61 70 70 6c 65 20 |e list o|f apple |
|000015d0| 65 76 65 6e 74 20 70 72 | 6f 63 65 64 75 72 65 73 |event pr|ocedures|
|000015e0| 0d 20 2a 2f 0d 0d 73 74 | 61 74 69 63 20 76 6f 69 |. */..st|atic voi|
|000015f0| 64 20 49 6e 69 74 41 70 | 70 6c 65 45 76 65 6e 74 |d InitAp|pleEvent|
|00001600| 73 28 76 6f 69 64 29 0d | 7b 0d 09 50 41 70 70 6c |s(void).|{..PAppl|
|00001610| 65 45 76 65 6e 74 50 72 | 6f 63 65 73 73 50 72 6f |eEventPr|ocessPro|
|00001620| 63 20 3d 20 4e 65 77 41 | 45 45 76 65 6e 74 48 61 |c = NewA|EEventHa|
|00001630| 6e 64 6c 65 72 50 72 6f | 63 28 41 70 70 6c 65 45 |ndlerPro|c(AppleE|
|00001640| 76 65 6e 74 50 72 6f 63 | 65 73 73 50 72 6f 63 29 |ventProc|essProc)|
|00001650| 3b 0d 09 41 45 49 6e 73 | 74 61 6c 6c 45 76 65 6e |;..AEIns|tallEven|
|00001660| 74 48 61 6e 64 6c 65 72 | 28 74 79 70 65 57 69 6c |tHandler|(typeWil|
|00001670| 64 43 61 72 64 2c 74 79 | 70 65 57 69 6c 64 43 61 |dCard,ty|peWildCa|
|00001680| 72 64 2c 50 41 70 70 6c | 65 45 76 65 6e 74 50 72 |rd,PAppl|eEventPr|
|00001690| 6f 63 65 73 73 50 72 6f | 63 2c 30 2c 66 61 6c 73 |ocessPro|c,0,fals|
|000016a0| 65 29 3b 0d 7d 0d 0d 2f | 2a 09 45 6e 64 41 70 70 |e);.}../|*.EndApp|
|000016b0| 6c 65 45 76 65 6e 74 73 | 0d 20 2a 0d 20 2a 09 09 |leEvents|. *. *..|
|000016c0| 44 69 73 70 6f 73 65 20 | 6f 66 20 74 68 65 20 61 |Dispose |of the a|
|000016d0| 70 70 6c 65 20 65 76 65 | 6e 74 73 20 6d 61 6e 61 |pple eve|nts mana|
|000016e0| 67 65 72 20 70 72 6f 63 | 0d 20 2a 2f 0d 0d 73 74 |ger proc|. */..st|
|000016f0| 61 74 69 63 20 76 6f 69 | 64 20 45 6e 64 41 70 70 |atic voi|d EndApp|
|00001700| 6c 65 45 76 65 6e 74 73 | 28 76 6f 69 64 29 0d 7b |leEvents|(void).{|
|00001710| 0d 09 44 69 73 70 6f 73 | 65 52 6f 75 74 69 6e 65 |..Dispos|eRoutine|
|00001720| 44 65 73 63 72 69 70 74 | 6f 72 28 50 41 70 70 6c |Descript|or(PAppl|
|00001730| 65 45 76 65 6e 74 50 72 | 6f 63 65 73 73 50 72 6f |eEventPr|ocessPro|
|00001740| 63 29 3b 0d 7d 0d 0d 2f | 2a 2a 2a 2a 2a 2a 2a 2a |c);.}../|********|
|00001750| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001760| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001770| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001780| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001790| 2f 0d 2f 2a 09 09 09 09 | 09 09 09 09 09 09 09 09 |/./*....|........|
|000017a0| 09 09 09 09 09 09 2a 2f | 0d 2f 2a 09 41 62 6f 75 |......*/|./*.Abou|
|000017b0| 74 20 4d 65 20 44 69 61 | 6c 6f 67 20 42 6f 78 20 |t Me Dia|log Box |
|000017c0| 4d 61 6e 61 67 65 72 09 | 09 09 09 09 09 09 09 09 |Manager.|........|
|000017d0| 09 09 2a 2f 0d 2f 2a 09 | 09 09 09 09 09 09 09 09 |..*/./*.|........|
|000017e0| 09 09 09 09 09 09 09 09 | 09 2a 2f 0d 2f 2a 2a 2a |........|.*/./***|
|000017f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001800| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001810| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001820| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001830| 2a 2a 2a 2a 2a 2f 0d 0d | 73 74 61 74 69 63 20 73 |*****/..|static s|
|00001840| 68 6f 72 74 20 47 52 65 | 64 72 61 77 20 3d 20 30 |hort GRe|draw = 0|
|00001850| 3b 0d 0d 2f 2a 09 44 72 | 61 77 56 65 72 73 69 6f |;../*.Dr|awVersio|
|00001860| 6e 53 74 72 69 6e 67 0d | 20 2a 0d 20 2a 09 09 54 |nString.| *. *..T|
|00001870| 68 69 73 20 66 75 6e 63 | 74 69 6f 6e 20 28 77 68 |his func|tion (wh|
|00001880| 69 63 68 20 63 61 6e 20 | 62 65 20 6f 76 65 72 72 |ich can |be overr|
|00001890| 69 64 64 65 6e 20 62 79 | 20 74 68 65 20 75 73 65 |idden by| the use|
|000018a0| 72 29 20 64 72 61 77 73 | 20 74 68 65 0d 20 2a 20 |r) draws| the. * |
|000018b0| 20 76 65 72 73 69 6f 6e | 20 69 66 20 74 68 65 20 | version| if the |
|000018c0| 76 65 72 73 69 6f 6e 20 | 72 65 73 6f 75 72 63 65 |version |resource|
|000018d0| 20 65 78 69 73 74 73 0d | 20 2a 2f 0d 0d 73 74 61 | exists.| */..sta|
|000018e0| 74 69 63 20 76 6f 69 64 | 20 44 72 61 77 56 65 72 |tic void| DrawVer|
|000018f0| 73 69 6f 6e 53 74 72 69 | 6e 67 28 52 65 63 74 20 |sionStri|ng(Rect |
|00001900| 2a 72 29 0d 7b 0d 09 46 | 6f 6e 74 49 6e 66 6f 20 |*r).{..F|ontInfo |
|00001910| 66 69 6e 66 6f 3b 0d 09 | 0d 20 20 20 20 73 74 72 |finfo;..|.    str|
|00001920| 75 63 74 20 56 65 72 73 | 52 65 63 6f 72 64 20 7b |uct Vers|Record {|
|00001930| 0d 09 09 75 6e 73 69 67 | 6e 65 64 20 63 68 61 72 |...unsig|ned char|
|00001940| 09 6d 61 6a 56 65 72 73 | 69 6f 6e 3b 0d 09 09 75 |.majVers|ion;...u|
|00001950| 6e 73 69 67 6e 65 64 20 | 63 68 61 72 09 6d 69 6e |nsigned |char.min|
|00001960| 56 65 72 73 69 6f 6e 3b | 0d 09 09 75 6e 73 69 67 |Version;|...unsig|
|00001970| 6e 65 64 20 63 68 61 72 | 09 64 65 76 65 6c 3b 0d |ned char|.devel;.|
|00001980| 09 09 75 6e 73 69 67 6e | 65 64 20 63 68 61 72 09 |..unsign|ed char.|
|00001990| 72 65 6c 65 61 73 65 3b | 0d 09 09 73 68 6f 72 74 |release;|...short|
|000019a0| 09 09 09 72 65 67 69 6f | 6e 3b 0d 09 09 75 6e 73 |...regio|n;...uns|
|000019b0| 69 67 6e 65 64 20 63 68 | 61 72 09 73 68 6f 72 74 |igned ch|ar.short|
|000019c0| 56 65 72 73 5b 32 5d 3b | 0d 09 7d 20 2a 2a 76 65 |Vers[2];|..} **ve|
|000019d0| 72 73 3b 0d 09 73 68 6f | 72 74 20 78 2c 79 3b 0d |rs;..sho|rt x,y;.|
|000019e0| 09 0d 09 69 66 20 28 4e | 55 4c 4c 20 3d 3d 20 28 |...if (N|ULL == (|
|000019f0| 76 65 72 73 20 3d 20 28 | 56 65 72 73 52 65 63 6f |vers = (|VersReco|
|00001a00| 72 64 20 2a 2a 29 47 65 | 74 52 65 73 6f 75 72 63 |rd **)Ge|tResourc|
|00001a10| 65 28 27 76 65 72 73 27 | 2c 31 29 29 29 20 72 65 |e('vers'|,1))) re|
|00001a20| 74 75 72 6e 3b 0d 09 48 | 4c 6f 63 6b 28 28 48 61 |turn;..H|Lock((Ha|
|00001a30| 6e 64 6c 65 29 76 65 72 | 73 29 3b 0d 09 0d 09 2f |ndle)ver|s);..../|
|00001a40| 2a 0d 09 20 2a 20 20 50 | 72 69 6e 74 20 74 68 65 |*.. *  P|rint the|
|00001a50| 20 76 65 72 73 69 6f 6e | 20 73 74 72 69 6e 67 20 | version| string |
|00001a60| 28 74 68 65 20 70 61 73 | 63 61 6c 20 73 74 72 69 |(the pas|cal stri|
|00001a70| 6e 67 20 63 6f 6e 74 61 | 69 6e 65 64 20 69 6e 20 |ng conta|ined in |
|00001a80| 74 68 69 73 20 74 68 69 | 6e 67 29 0d 09 20 2a 2f |this thi|ng).. */|
|00001a90| 0d 09 0d 09 54 65 78 74 | 46 6f 6e 74 28 34 29 3b |....Text|Font(4);|
|00001aa0| 0d 09 54 65 78 74 53 69 | 7a 65 28 39 29 3b 0d 09 |..TextSi|ze(9);..|
|00001ab0| 54 65 78 74 4d 6f 64 65 | 28 73 72 63 4f 72 29 3b |TextMode|(srcOr);|
|00001ac0| 0d 09 47 65 74 46 6f 6e | 74 49 6e 66 6f 28 26 66 |..GetFon|tInfo(&f|
|00001ad0| 69 6e 66 6f 29 3b 0d 09 | 79 20 3d 20 72 2d 3e 74 |info);..|y = r->t|
|00001ae0| 6f 70 20 2b 20 66 69 6e | 66 6f 2e 61 73 63 65 6e |op + fin|fo.ascen|
|00001af0| 74 3b 0d 09 78 20 3d 20 | 72 2d 3e 72 69 67 68 74 |t;..x = |r->right|
|00001b00| 20 2d 20 53 74 72 69 6e | 67 57 69 64 74 68 28 28 | - Strin|gWidth((|
|00001b10| 2a 2a 76 65 72 73 29 2e | 73 68 6f 72 74 56 65 72 |**vers).|shortVer|
|00001b20| 73 29 3b 0d 09 4d 6f 76 | 65 54 6f 28 78 2c 79 29 |s);..Mov|eTo(x,y)|
|00001b30| 3b 0d 09 44 72 61 77 53 | 74 72 69 6e 67 28 28 2a |;..DrawS|tring((*|
|00001b40| 2a 76 65 72 73 29 2e 73 | 68 6f 72 74 56 65 72 73 |*vers).s|hortVers|
|00001b50| 29 3b 0d 09 0d 09 48 55 | 6e 6c 6f 63 6b 28 28 48 |);....HU|nlock((H|
|00001b60| 61 6e 64 6c 65 29 76 65 | 72 73 29 3b 0d 09 52 65 |andle)ve|rs);..Re|
|00001b70| 6c 65 61 73 65 52 65 73 | 6f 75 72 63 65 28 28 48 |leaseRes|ource((H|
|00001b80| 61 6e 64 6c 65 29 76 65 | 72 73 29 3b 0d 09 0d 09 |andle)ve|rs);....|
|00001b90| 54 65 78 74 46 6f 6e 74 | 28 30 29 3b 0d 09 54 65 |TextFont|(0);..Te|
|00001ba0| 78 74 53 69 7a 65 28 31 | 32 29 3b 0d 7d 0d 0d 2f |xtSize(1|2);.}../|
|00001bb0| 2a 09 41 62 6f 75 74 4d | 65 46 69 6c 74 65 72 0d |*.AboutM|eFilter.|
|00001bc0| 20 2a 0d 20 2a 09 09 54 | 68 69 73 20 69 73 20 74 | *. *..T|his is t|
|00001bd0| 68 65 20 66 69 6c 74 65 | 72 20 70 72 6f 63 65 64 |he filte|r proced|
|00001be0| 75 72 65 20 66 6f 72 20 | 73 69 6d 70 6c 79 20 77 |ure for |simply w|
|00001bf0| 61 69 74 69 6e 67 20 61 | 72 6f 75 6e 64 20 75 6e |aiting a|round un|
|00001c00| 74 69 6c 20 74 68 65 0d | 20 2a 09 75 73 65 72 20 |til the.| *.user |
|00001c10| 64 6f 65 73 20 73 6f 6d | 65 74 68 69 6e 67 2e 0d |does som|ething..|
|00001c20| 20 2a 2f 0d 0d 73 74 61 | 74 69 63 20 70 61 73 63 | */..sta|tic pasc|
|00001c30| 61 6c 20 42 6f 6f 6c 65 | 61 6e 20 41 62 6f 75 74 |al Boole|an About|
|00001c40| 4d 65 46 69 6c 74 65 72 | 28 44 69 61 6c 6f 67 50 |MeFilter|(DialogP|
|00001c50| 74 72 20 64 6c 6f 67 2c | 20 45 76 65 6e 74 52 65 |tr dlog,| EventRe|
|00001c60| 63 6f 72 64 20 2a 65 76 | 65 6e 74 2c 20 73 68 6f |cord *ev|ent, sho|
|00001c70| 72 74 20 2a 69 74 65 6d | 29 0d 7b 0d 09 69 66 20 |rt *item|).{..if |
|00001c80| 28 47 52 65 64 72 61 77 | 29 20 7b 0d 09 09 53 65 |(GRedraw|) {...Se|
|00001c90| 74 50 6f 72 74 28 64 6c | 6f 67 29 3b 0d 09 09 44 |tPort(dl|og);...D|
|00001ca0| 72 61 77 56 65 72 73 69 | 6f 6e 53 74 72 69 6e 67 |rawVersi|onString|
|00001cb0| 28 26 28 64 6c 6f 67 2d | 3e 70 6f 72 74 52 65 63 |(&(dlog-|>portRec|
|00001cc0| 74 29 29 3b 0d 09 09 47 | 52 65 64 72 61 77 20 3d |t));...G|Redraw =|
|00001cd0| 20 30 3b 0d 09 7d 0d 09 | 0d 09 69 66 20 28 28 65 | 0;..}..|..if ((e|
|00001ce0| 76 65 6e 74 2d 3e 77 68 | 61 74 20 3d 3d 20 6d 6f |vent->wh|at == mo|
|00001cf0| 75 73 65 44 6f 77 6e 29 | 20 7c 7c 20 28 65 76 65 |useDown)| || (eve|
|00001d00| 6e 74 2d 3e 77 68 61 74 | 20 3d 3d 20 6b 65 79 44 |nt->what| == keyD|
|00001d10| 6f 77 6e 29 29 20 7b 0d | 09 09 2a 69 74 65 6d 20 |own)) {.|..*item |
|00001d20| 3d 20 31 3b 0d 09 09 72 | 65 74 75 72 6e 20 31 3b |= 1;...r|eturn 1;|
|00001d30| 0d 09 7d 20 65 6c 73 65 | 20 69 66 20 28 65 76 65 |..} else| if (eve|
|00001d40| 6e 74 2d 3e 77 68 61 74 | 20 3d 3d 20 75 70 64 61 |nt->what| == upda|
|00001d50| 74 65 45 76 74 29 20 7b | 0d 09 09 47 52 65 64 72 |teEvt) {|...GRedr|
|00001d60| 61 77 20 3d 20 31 3b 0d | 09 09 72 65 74 75 72 6e |aw = 1;.|..return|
|00001d70| 20 30 3b 0d 09 7d 20 65 | 6c 73 65 20 72 65 74 75 | 0;..} e|lse retu|
|00001d80| 72 6e 20 30 3b 0d 7d 0d | 0d 2f 2a 09 4f 70 65 6e |rn 0;.}.|./*.Open|
|00001d90| 41 62 6f 75 74 4d 65 0d | 20 2a 0d 20 2a 09 09 4f |AboutMe.| *. *..O|
|00001da0| 70 65 6e 20 74 68 65 20 | 61 62 6f 75 74 20 6d 65 |pen the |about me|
|00001db0| 20 64 69 61 6c 6f 67 20 | 62 6f 78 0d 20 2a 2f 0d | dialog |box. */.|
|00001dc0| 0d 73 74 61 74 69 63 20 | 44 69 61 6c 6f 67 50 74 |.static |DialogPt|
|00001dd0| 72 20 4f 70 65 6e 41 62 | 6f 75 74 4d 65 28 76 6f |r OpenAb|outMe(vo|
|00001de0| 69 64 29 0d 7b 0d 09 44 | 69 61 6c 6f 67 50 74 72 |id).{..D|ialogPtr|
|00001df0| 20 64 6c 6f 67 3b 0d 09 | 47 72 61 66 50 74 72 20 | dlog;..|GrafPtr |
|00001e00| 70 6f 72 74 3b 0d 09 52 | 65 63 74 20 72 3b 0d 09 |port;..R|ect r;..|
|00001e10| 73 68 6f 72 74 20 78 2c | 79 3b 0d 09 0d 09 69 66 |short x,|y;....if|
|00001e20| 20 28 46 43 6f 6c 6f 72 | 51 75 69 63 6b 64 72 61 | (FColor|Quickdra|
|00001e30| 77 29 20 7b 0d 09 09 64 | 6c 6f 67 20 3d 20 47 65 |w) {...d|log = Ge|
|00001e40| 74 4e 65 77 44 69 61 6c | 6f 67 28 43 6f 6c 6f 72 |tNewDial|og(Color|
|00001e50| 41 62 6f 75 74 4d 65 2c | 4e 55 4c 4c 2c 28 57 69 |AboutMe,|NULL,(Wi|
|00001e60| 6e 64 6f 77 50 74 72 29 | 2d 31 29 3b 0d 09 09 69 |ndowPtr)|-1);...i|
|00001e70| 66 20 28 64 6c 6f 67 20 | 3d 3d 20 4e 55 4c 4c 29 |f (dlog |== NULL)|
|00001e80| 20 7b 0d 09 09 09 64 6c | 6f 67 20 3d 20 47 65 74 | {....dl|og = Get|
|00001e90| 4e 65 77 44 69 61 6c 6f | 67 28 42 57 41 62 6f 75 |NewDialo|g(BWAbou|
|00001ea0| 74 4d 65 2c 4e 55 4c 4c | 2c 28 57 69 6e 64 6f 77 |tMe,NULL|,(Window|
|00001eb0| 50 74 72 29 2d 31 29 3b | 0d 09 09 09 69 66 20 28 |Ptr)-1);|....if (|
|00001ec0| 64 6c 6f 67 20 3d 3d 20 | 4e 55 4c 4c 29 20 7b 0d |dlog == |NULL) {.|
|00001ed0| 09 09 09 09 72 65 74 75 | 72 6e 20 4e 55 4c 4c 3b |....retu|rn NULL;|
|00001ee0| 0d 09 09 09 7d 0d 09 09 | 7d 0d 09 7d 20 65 6c 73 |....}...|}..} els|
|00001ef0| 65 20 7b 0d 09 09 64 6c | 6f 67 20 3d 20 47 65 74 |e {...dl|og = Get|
|00001f00| 4e 65 77 44 69 61 6c 6f | 67 28 42 57 41 62 6f 75 |NewDialo|g(BWAbou|
|00001f10| 74 4d 65 2c 4e 55 4c 4c | 2c 28 57 69 6e 64 6f 77 |tMe,NULL|,(Window|
|00001f20| 50 74 72 29 2d 31 29 3b | 0d 09 09 69 66 20 28 64 |Ptr)-1);|...if (d|
|00001f30| 6c 6f 67 20 3d 3d 20 4e | 55 4c 4c 29 20 7b 0d 09 |log == N|ULL) {..|
|00001f40| 09 09 72 65 74 75 72 6e | 20 4e 55 4c 4c 3b 0d 09 |..return| NULL;..|
|00001f50| 09 7d 0d 09 7d 0d 09 0d | 09 47 65 74 57 4d 67 72 |.}..}...|.GetWMgr|
|00001f60| 50 6f 72 74 28 26 70 6f | 72 74 29 3b 09 09 09 09 |Port(&po|rt);....|
|00001f70| 09 09 2f 2f 20 43 65 6e | 74 65 72 20 74 68 65 20 |..// Cen|ter the |
|00001f80| 77 69 6e 64 6f 77 0d 09 | 72 20 3d 20 70 6f 72 74 |window..|r = port|
|00001f90| 2d 3e 70 6f 72 74 52 65 | 63 74 3b 0d 09 78 20 3d |->portRe|ct;..x =|
|00001fa0| 20 72 2e 72 69 67 68 74 | 20 2d 20 72 2e 6c 65 66 | r.right| - r.lef|
|00001fb0| 74 3b 0d 09 79 20 3d 20 | 72 2e 62 6f 74 74 6f 6d |t;..y = |r.bottom|
|00001fc0| 20 2d 20 72 2e 74 6f 70 | 3b 0d 09 72 20 3d 20 64 | - r.top|;..r = d|
|00001fd0| 6c 6f 67 2d 3e 70 6f 72 | 74 52 65 63 74 3b 0d 09 |log->por|tRect;..|
|00001fe0| 78 20 2d 3d 20 72 2e 72 | 69 67 68 74 20 2d 20 72 |x -= r.r|ight - r|
|00001ff0| 2e 6c 65 66 74 3b 0d 09 | 79 20 2d 3d 20 72 2e 62 |.left;..|y -= r.b|
|00002000| 6f 74 74 6f 6d 20 2d 20 | 72 2e 74 6f 70 3b 0d 09 |ottom - |r.top;..|
|00002010| 78 20 2f 3d 20 32 3b 0d | 09 79 20 2f 3d 20 32 3b |x /= 2;.|.y /= 2;|
|00002020| 0d 09 4d 6f 76 65 57 69 | 6e 64 6f 77 28 64 6c 6f |..MoveWi|ndow(dlo|
|00002030| 67 2c 78 2c 79 2c 30 29 | 3b 0d 09 0d 09 53 68 6f |g,x,y,0)|;....Sho|
|00002040| 77 57 69 6e 64 6f 77 28 | 64 6c 6f 67 29 3b 0d 09 |wWindow(|dlog);..|
|00002050| 53 65 74 50 6f 72 74 28 | 64 6c 6f 67 29 3b 0d 09 |SetPort(|dlog);..|
|00002060| 0d 09 72 65 74 75 72 6e | 20 64 6c 6f 67 3b 0d 7d |..return| dlog;.}|
|00002070| 0d 0d 2f 2a 09 44 6f 41 | 62 6f 75 74 4d 65 0d 20 |../*.DoA|boutMe. |
|00002080| 2a 0d 20 2a 09 09 68 6f | 77 20 74 6f 20 72 75 6e |*. *..ho|w to run|
|00002090| 20 61 20 64 69 61 6c 6f | 67 20 62 6f 78 0d 20 2a | a dialo|g box. *|
|000020a0| 2f 0d 0d 73 74 61 74 69 | 63 20 76 6f 69 64 20 44 |/..stati|c void D|
|000020b0| 6f 41 62 6f 75 74 4d 65 | 28 76 6f 69 64 29 0d 7b |oAboutMe|(void).{|
|000020c0| 0d 09 73 68 6f 72 74 20 | 69 3b 0d 09 4d 6f 64 61 |..short |i;..Moda|
|000020d0| 6c 46 69 6c 74 65 72 55 | 50 50 20 70 72 6f 63 3b |lFilterU|PP proc;|
|000020e0| 0d 09 0d 09 44 69 61 6c | 6f 67 50 74 72 20 64 6c |....Dial|ogPtr dl|
|000020f0| 6f 67 20 3d 20 4f 70 65 | 6e 41 62 6f 75 74 4d 65 |og = Ope|nAboutMe|
|00002100| 28 29 3b 0d 09 69 66 20 | 28 21 64 6c 6f 67 29 20 |();..if |(!dlog) |
|00002110| 72 65 74 75 72 6e 3b 0d | 09 70 72 6f 63 20 3d 20 |return;.|.proc = |
|00002120| 28 4d 6f 64 61 6c 46 69 | 6c 74 65 72 55 50 50 29 |(ModalFi|lterUPP)|
|00002130| 4e 65 77 52 6f 75 74 69 | 6e 65 44 65 73 63 72 69 |NewRouti|neDescri|
|00002140| 70 74 6f 72 28 28 50 72 | 6f 63 50 74 72 29 41 62 |ptor((Pr|ocPtr)Ab|
|00002150| 6f 75 74 4d 65 46 69 6c | 74 65 72 2c 75 70 70 4d |outMeFil|ter,uppM|
|00002160| 6f 64 61 6c 46 69 6c 74 | 65 72 50 72 6f 63 49 6e |odalFilt|erProcIn|
|00002170| 66 6f 2c 47 65 74 43 75 | 72 72 65 6e 74 49 53 41 |fo,GetCu|rrentISA|
|00002180| 28 29 29 3b 0d 09 0d 09 | 66 6f 72 20 28 3b 3b 29 |());....|for (;;)|
|00002190| 20 7b 0d 09 09 4d 6f 64 | 61 6c 44 69 61 6c 6f 67 | {...Mod|alDialog|
|000021a0| 28 70 72 6f 63 2c 26 69 | 29 3b 0d 09 09 69 66 20 |(proc,&i|);...if |
|000021b0| 28 69 20 3d 3d 20 31 29 | 20 62 72 65 61 6b 3b 0d |(i == 1)| break;.|
|000021c0| 09 7d 0d 0d 09 44 69 73 | 70 6f 73 65 52 6f 75 74 |.}...Dis|poseRout|
|000021d0| 69 6e 65 44 65 73 63 72 | 69 70 74 6f 72 28 70 72 |ineDescr|iptor(pr|
|000021e0| 6f 63 29 3b 0d 09 44 69 | 73 70 6f 73 65 44 69 61 |oc);..Di|sposeDia|
|000021f0| 6c 6f 67 28 64 6c 6f 67 | 29 3b 0d 7d 0d 0d 2f 2a |log(dlog|);.}../*|
|00002200| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002210| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002220| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002230| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002240| 2a 2a 2a 2a 2a 2a 2a 2f | 0d 2f 2a 09 09 09 09 09 |*******/|./*.....|
|00002250| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 2a 2f 0d |........|.....*/.|
|00002260| 2f 2a 09 53 74 72 69 70 | 20 44 69 61 6c 6f 67 09 |/*.Strip| Dialog.|
|00002270| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 2a 2f 0d |........|.....*/.|
|00002280| 2f 2a 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |/*......|........|
|00002290| 09 09 09 09 2a 2f 0d 2f | 2a 2a 2a 2a 2a 2a 2a 2a |....*/./|********|
|000022a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000022b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000022c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000022d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000022e0| 2f 0d 0d 2f 2a 09 44 6f | 53 74 72 69 70 44 69 61 |/../*.Do|StripDia|
|000022f0| 6c 6f 67 0d 20 2a 0d 20 | 2a 09 09 41 73 6b 20 74 |log. *. |*..Ask t|
|00002300| 68 65 20 75 73 65 72 20 | 74 6f 20 6f 70 65 6e 20 |he user |to open |
|00002310| 61 6e 20 61 70 70 6c 69 | 63 61 74 69 6f 6e 20 61 |an appli|cation a|
|00002320| 6e 64 20 73 74 72 69 70 | 20 69 74 20 62 79 20 63 |nd strip| it by c|
|00002330| 61 6c 6c 69 6e 67 20 74 | 68 65 0d 20 2a 09 73 74 |alling t|he. *.st|
|00002340| 72 69 70 20 72 6f 75 74 | 69 6e 65 0d 20 2a 2f 0d |rip rout|ine. */.|
|00002350| 0d 73 74 61 74 69 63 20 | 76 6f 69 64 20 44 6f 53 |.static |void DoS|
|00002360| 74 72 69 70 44 69 61 6c | 6f 67 28 76 6f 69 64 29 |tripDial|og(void)|
|00002370| 0d 7b 0d 09 53 46 54 79 | 70 65 4c 69 73 74 20 66 |.{..SFTy|peList f|
|00002380| 69 6c 65 73 20 3d 20 7b | 20 27 41 50 50 4c 27 2c |iles = {| 'APPL',|
|00002390| 20 4e 55 4c 4c 2c 20 4e | 55 4c 4c 2c 20 4e 55 4c | NULL, N|ULL, NUL|
|000023a0| 4c 20 7d 3b 0d 09 0d 09 | 69 66 20 28 46 48 61 73 |L };....|if (FHas|
|000023b0| 46 53 53 70 65 63 29 20 | 7b 0d 09 09 53 74 61 6e |FSSpec) |{...Stan|
|000023c0| 64 61 72 64 46 69 6c 65 | 52 65 70 6c 79 20 72 65 |dardFile|Reply re|
|000023d0| 70 6c 79 3b 0d 09 09 0d | 09 09 53 74 61 6e 64 61 |ply;....|..Standa|
|000023e0| 72 64 47 65 74 46 69 6c | 65 28 4e 55 4c 4c 2c 31 |rdGetFil|e(NULL,1|
|000023f0| 2c 66 69 6c 65 73 2c 26 | 72 65 70 6c 79 29 3b 0d |,files,&|reply);.|
|00002400| 09 09 69 66 20 28 72 65 | 70 6c 79 2e 73 66 47 6f |..if (re|ply.sfGo|
|00002410| 6f 64 29 20 53 74 72 69 | 70 46 69 6c 65 28 26 72 |od) Stri|pFile(&r|
|00002420| 65 70 6c 79 2e 73 66 46 | 69 6c 65 29 3b 0d 09 7d |eply.sfF|ile);..}|
|00002430| 20 65 6c 73 65 20 7b 0d | 09 09 53 46 52 65 70 6c | else {.|..SFRepl|
|00002440| 79 20 72 65 70 6c 79 3b | 0d 09 09 50 6f 69 6e 74 |y reply;|...Point|
|00002450| 20 70 74 3b 0d 09 09 46 | 53 53 70 65 63 20 66 69 | pt;...F|SSpec fi|
|00002460| 6c 65 3b 0d 09 09 6c 6f | 6e 67 20 70 72 6f 63 49 |le;...lo|ng procI|
|00002470| 44 3b 0d 09 09 0d 09 09 | 70 74 2e 68 20 3d 20 37 |D;......|pt.h = 7|
|00002480| 35 3b 0d 09 09 70 74 2e | 76 20 3d 20 37 35 3b 0d |5;...pt.|v = 75;.|
|00002490| 09 09 53 46 47 65 74 46 | 69 6c 65 28 70 74 2c 4e |..SFGetF|ile(pt,N|
|000024a0| 55 4c 4c 2c 4e 55 4c 4c | 2c 31 2c 66 69 6c 65 73 |ULL,NULL|,1,files|
|000024b0| 2c 4e 55 4c 4c 2c 26 72 | 65 70 6c 79 29 3b 0d 09 |,NULL,&r|eply);..|
|000024c0| 09 69 66 20 28 21 72 65 | 70 6c 79 2e 67 6f 6f 64 |.if (!re|ply.good|
|000024d0| 29 20 72 65 74 75 72 6e | 3b 0d 09 09 0d 09 09 70 |) return|;......p|
|000024e0| 72 6f 63 49 44 20 3d 20 | 30 3b 0d 09 09 66 69 6c |rocID = |0;...fil|
|000024f0| 65 2e 76 52 65 66 4e 75 | 6d 20 3d 20 30 3b 0d 09 |e.vRefNu|m = 0;..|
|00002500| 09 42 6c 6f 63 6b 4d 6f | 76 65 28 72 65 70 6c 79 |.BlockMo|ve(reply|
|00002510| 2e 66 4e 61 6d 65 2c 66 | 69 6c 65 2e 6e 61 6d 65 |.fName,f|ile.name|
|00002520| 2c 31 2b 72 65 70 6c 79 | 2e 66 4e 61 6d 65 5b 30 |,1+reply|.fName[0|
|00002530| 5d 29 3b 0d 09 09 47 65 | 74 57 44 49 6e 66 6f 28 |]);...Ge|tWDInfo(|
|00002540| 72 65 70 6c 79 2e 76 52 | 65 66 4e 75 6d 2c 26 66 |reply.vR|efNum,&f|
|00002550| 69 6c 65 2e 76 52 65 66 | 4e 75 6d 2c 26 66 69 6c |ile.vRef|Num,&fil|
|00002560| 65 2e 70 61 72 49 44 2c | 26 70 72 6f 63 49 44 29 |e.parID,|&procID)|
|00002570| 3b 0d 09 09 53 74 72 69 | 70 46 69 6c 65 28 26 66 |;...Stri|pFile(&f|
|00002580| 69 6c 65 29 3b 0d 09 7d | 0d 7d 0d 0d 2f 2a 2a 2a |ile);..}|.}../***|
|00002590| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000025a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000025b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000025c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000025d0| 2a 2a 2a 2a 2a 2f 0d 2f | 2a 09 09 09 09 09 09 09 |*****/./|*.......|
|000025e0| 09 09 09 09 09 09 09 09 | 09 09 09 2a 2f 0d 2f 2a |........|...*/./*|
|000025f0| 09 45 76 65 6e 74 20 4d | 61 6e 61 67 65 6d 65 6e |.Event M|anagemen|
|00002600| 74 09 09 09 09 09 09 09 | 09 09 09 09 09 09 2a 2f |t.......|......*/|
|00002610| 0d 2f 2a 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |./*.....|........|
|00002620| 09 09 09 09 09 2a 2f 0d | 2f 2a 2a 2a 2a 2a 2a 2a |.....*/.|/*******|
|00002630| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002640| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002650| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002660| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002670| 2a 2f 0d 0d 2f 2a 09 47 | 65 74 45 76 65 6e 74 0d |*/../*.G|etEvent.|
|00002680| 20 2a 0d 20 2a 09 09 47 | 65 74 20 74 68 65 20 6e | *. *..G|et the n|
|00002690| 65 78 74 20 65 76 65 6e | 74 20 69 6e 20 61 20 72 |ext even|t in a r|
|000026a0| 65 61 73 6f 6e 61 62 6c | 65 20 77 61 79 0d 20 2a |easonabl|e way. *|
|000026b0| 2f 0d 0d 73 74 61 74 69 | 63 20 69 6e 74 20 47 65 |/..stati|c int Ge|
|000026c0| 74 45 76 65 6e 74 28 45 | 76 65 6e 74 52 65 63 6f |tEvent(E|ventReco|
|000026d0| 72 64 20 2a 65 76 65 6e | 74 29 0d 7b 0d 09 72 65 |rd *even|t).{..re|
|000026e0| 74 75 72 6e 20 57 61 69 | 74 4e 65 78 74 45 76 65 |turn Wai|tNextEve|
|000026f0| 6e 74 28 65 76 65 72 79 | 45 76 65 6e 74 2c 65 76 |nt(every|Event,ev|
|00002700| 65 6e 74 2c 47 65 74 43 | 61 72 65 74 54 69 6d 65 |ent,GetC|aretTime|
|00002710| 28 29 2c 4e 55 4c 4c 29 | 3b 0d 7d 0d 0d 2f 2a 09 |(),NULL)|;.}../*.|
|00002720| 44 6f 4d 65 6e 75 0d 20 | 2a 0d 20 2a 09 09 48 61 |DoMenu. |*. *..Ha|
|00002730| 6e 64 6c 65 20 64 69 73 | 70 61 74 63 68 69 6e 67 |ndle dis|patching|
|00002740| 20 74 68 65 20 6d 65 6e | 75 20 69 74 65 6d 20 74 | the men|u item t|
|00002750| 6f 20 74 68 65 20 6d 65 | 6e 75 20 6d 61 6e 61 67 |o the me|nu manag|
|00002760| 65 72 20 0d 20 2a 2f 0d | 0d 73 74 61 74 69 63 20 |er . */.|.static |
|00002770| 76 6f 69 64 20 44 6f 4d | 65 6e 75 28 6c 6f 6e 67 |void DoM|enu(long|
|00002780| 20 6d 65 6e 75 49 44 29 | 0d 7b 0d 09 73 68 6f 72 | menuID)|.{..shor|
|00002790| 74 20 68 69 2c 6c 6f 3b | 0d 09 4d 65 6e 75 48 61 |t hi,lo;|..MenuHa|
|000027a0| 6e 64 6c 65 20 6d 68 3b | 0d 09 75 6e 73 69 67 6e |ndle mh;|..unsign|
|000027b0| 65 64 20 63 68 61 72 20 | 62 75 66 66 65 72 5b 32 |ed char |buffer[2|
|000027c0| 35 36 5d 3b 0d 09 0d 09 | 68 69 20 3d 20 28 73 68 |56];....|hi = (sh|
|000027d0| 6f 72 74 29 28 6d 65 6e | 75 49 44 20 3e 3e 20 31 |ort)(men|uID >> 1|
|000027e0| 36 29 3b 0d 09 6c 6f 20 | 3d 20 28 73 68 6f 72 74 |6);..lo |= (short|
|000027f0| 29 28 6d 65 6e 75 49 44 | 20 26 20 30 78 30 46 46 |)(menuID| & 0x0FF|
|00002800| 46 46 29 3b 0d 09 0d 09 | 73 77 69 74 63 68 20 28 |FF);....|switch (|
|00002810| 68 69 29 20 7b 0d 09 09 | 63 61 73 65 20 4d 41 70 |hi) {...|case MAp|
|00002820| 70 6c 65 3a 0d 09 09 09 | 73 77 69 74 63 68 20 28 |ple:....|switch (|
|00002830| 6c 6f 29 20 7b 0d 09 09 | 09 09 63 61 73 65 20 4d |lo) {...|..case M|
|00002840| 41 70 70 6c 65 41 62 6f | 75 74 4d 65 3a 0d 09 09 |AppleAbo|utMe:...|
|00002850| 09 09 09 44 6f 41 62 6f | 75 74 4d 65 28 29 3b 0d |...DoAbo|utMe();.|
|00002860| 09 09 09 09 09 62 72 65 | 61 6b 3b 0d 09 09 09 09 |.....bre|ak;.....|
|00002870| 64 65 66 61 75 6c 74 3a | 0d 09 09 09 09 09 6d 68 |default:|......mh|
|00002880| 20 3d 20 47 65 74 4d 48 | 61 6e 64 6c 65 28 4d 41 | = GetMH|andle(MA|
|00002890| 70 70 6c 65 29 3b 0d 09 | 09 09 09 09 47 65 74 49 |pple);..|....GetI|
|000028a0| 74 65 6d 28 6d 68 2c 6c | 6f 2c 62 75 66 66 65 72 |tem(mh,l|o,buffer|
|000028b0| 29 3b 0d 09 09 09 09 09 | 4f 70 65 6e 44 65 73 6b |);......|OpenDesk|
|000028c0| 41 63 63 28 62 75 66 66 | 65 72 29 3b 0d 09 09 09 |Acc(buff|er);....|
|000028d0| 09 09 62 72 65 61 6b 3b | 0d 09 09 09 7d 0d 09 09 |..break;|....}...|
|000028e0| 09 62 72 65 61 6b 3b 0d | 09 09 63 61 73 65 20 4d |.break;.|..case M|
|000028f0| 46 69 6c 65 3a 0d 09 09 | 09 73 77 69 74 63 68 20 |File:...|.switch |
|00002900| 28 6c 6f 29 20 7b 0d 09 | 09 09 09 63 61 73 65 20 |(lo) {..|...case |
|00002910| 4d 46 69 6c 65 53 74 72 | 69 70 3a 0d 09 09 09 09 |MFileStr|ip:.....|
|00002920| 09 44 6f 53 74 72 69 70 | 44 69 61 6c 6f 67 28 29 |.DoStrip|Dialog()|
|00002930| 3b 0d 09 09 09 09 09 62 | 72 65 61 6b 3b 0d 09 09 |;......b|reak;...|
|00002940| 09 09 63 61 73 65 20 4d | 46 69 6c 65 51 75 69 74 |..case M|FileQuit|
|00002950| 3a 0d 09 09 09 09 09 51 | 75 69 74 46 6c 61 67 20 |:......Q|uitFlag |
|00002960| 3d 20 31 3b 0d 09 09 09 | 09 09 62 72 65 61 6b 3b |= 1;....|..break;|
|00002970| 0d 09 09 09 7d 0d 09 09 | 09 62 72 65 61 6b 3b 0d |....}...|.break;.|
|00002980| 09 09 63 61 73 65 20 4d | 45 64 69 74 3a 0d 09 09 |..case M|Edit:...|
|00002990| 09 53 79 73 74 65 6d 45 | 64 69 74 28 6c 6f 2d 31 |.SystemE|dit(lo-1|
|000029a0| 29 3b 0d 09 09 09 62 72 | 65 61 6b 3b 0d 09 7d 0d |);....br|eak;..}.|
|000029b0| 7d 0d 0d 2f 2a 09 44 6f | 4d 6f 75 73 65 0d 20 2a |}../*.Do|Mouse. *|
|000029c0| 0d 20 2a 09 09 48 61 6e | 64 6c 65 20 6d 6f 75 73 |. *..Han|dle mous|
|000029d0| 65 20 64 6f 77 6e 20 65 | 76 65 6e 74 0d 20 2a 2f |e down e|vent. */|
|000029e0| 0d 0d 73 74 61 74 69 63 | 20 76 6f 69 64 20 44 6f |..static| void Do|
|000029f0| 4d 6f 75 73 65 28 45 76 | 65 6e 74 52 65 63 6f 72 |Mouse(Ev|entRecor|
|00002a00| 64 20 2a 65 29 0d 7b 0d | 09 73 68 6f 72 74 20 69 |d *e).{.|.short i|
|00002a10| 3b 0d 09 57 69 6e 64 6f | 77 50 74 72 20 77 3b 0d |;..Windo|wPtr w;.|
|00002a20| 0d 09 69 20 3d 20 46 69 | 6e 64 57 69 6e 64 6f 77 |..i = Fi|ndWindow|
|00002a30| 28 65 2d 3e 77 68 65 72 | 65 2c 26 77 29 3b 09 09 |(e->wher|e,&w);..|
|00002a40| 09 09 2f 2f 20 47 65 74 | 20 63 75 72 72 65 6e 74 |..// Get| current|
|00002a50| 20 77 69 6e 64 6f 77 0d | 09 0d 09 73 77 69 74 63 | window.|...switc|
|00002a60| 68 20 28 69 29 20 7b 0d | 09 09 63 61 73 65 20 69 |h (i) {.|..case i|
|00002a70| 6e 4d 65 6e 75 42 61 72 | 3a 09 09 09 09 09 09 09 |nMenuBar|:.......|
|00002a80| 2f 2f 20 49 6e 20 74 68 | 65 20 6d 65 6e 75 20 62 |// In th|e menu b|
|00002a90| 61 72 0d 09 09 09 44 6f | 4d 65 6e 75 28 4d 65 6e |ar....Do|Menu(Men|
|00002aa0| 75 53 65 6c 65 63 74 28 | 65 2d 3e 77 68 65 72 65 |uSelect(|e->where|
|00002ab0| 29 29 3b 0d 09 09 09 62 | 72 65 61 6b 3b 0d 09 09 |));....b|reak;...|
|00002ac0| 63 61 73 65 20 69 6e 53 | 79 73 57 69 6e 64 6f 77 |case inS|ysWindow|
|00002ad0| 3a 09 09 09 09 09 09 2f | 2f 20 49 6e 20 61 20 64 |:....../|/ In a d|
|00002ae0| 65 73 6b 20 61 63 63 65 | 73 73 6f 72 79 0d 09 09 |esk acce|ssory...|
|00002af0| 09 53 79 73 74 65 6d 43 | 6c 69 63 6b 28 65 2c 77 |.SystemC|lick(e,w|
|00002b00| 29 3b 0d 09 09 09 62 72 | 65 61 6b 3b 0d 09 09 63 |);....br|eak;...c|
|00002b10| 61 73 65 20 69 6e 43 6f | 6e 74 65 6e 74 3a 09 09 |ase inCo|ntent:..|
|00002b20| 09 09 09 09 09 2f 2f 20 | 43 6c 69 63 6b 20 69 6e |.....// |Click in|
|00002b30| 20 63 6f 6e 74 65 6e 74 | 0d 09 09 09 53 65 6c 65 | content|....Sele|
|00002b40| 63 74 57 69 6e 64 6f 77 | 28 77 29 3b 0d 09 09 09 |ctWindow|(w);....|
|00002b50| 62 72 65 61 6b 3b 0d 09 | 7d 0d 7d 0d 0d 2f 2a 09 |break;..|}.}../*.|
|00002b60| 44 6f 45 76 65 6e 74 0d | 20 2a 0d 20 2a 09 09 57 |DoEvent.| *. *..W|
|00002b70| 68 61 74 20 74 6f 20 64 | 6f 20 77 69 74 68 20 74 |hat to d|o with t|
|00002b80| 68 69 73 20 65 76 65 6e | 74 0d 20 2a 2f 0d 0d 73 |his even|t. */..s|
|00002b90| 74 61 74 69 63 20 76 6f | 69 64 20 44 6f 45 76 65 |tatic vo|id DoEve|
|00002ba0| 6e 74 28 45 76 65 6e 74 | 52 65 63 6f 72 64 20 2a |nt(Event|Record *|
|00002bb0| 65 29 0d 7b 0d 09 69 6e | 74 20 65 72 72 3b 0d 09 |e).{..in|t err;..|
|00002bc0| 0d 09 73 77 69 74 63 68 | 20 28 65 2d 3e 77 68 61 |..switch| (e->wha|
|00002bd0| 74 29 20 7b 0d 09 09 63 | 61 73 65 20 6e 75 6c 6c |t) {...c|ase null|
|00002be0| 45 76 65 6e 74 3a 0d 09 | 09 09 69 66 20 28 21 52 |Event:..|..if (!R|
|00002bf0| 75 6e 45 76 65 6e 74 4c | 6f 6f 70 29 20 51 75 69 |unEventL|oop) Qui|
|00002c00| 74 46 6c 61 67 20 3d 20 | 31 3b 09 2f 2f 20 44 6f |tFlag = |1;.// Do|
|00002c10| 6e 27 74 20 72 75 6e 20 | 74 68 69 73 20 61 70 70 |n't run |this app|
|00002c20| 6c 69 63 61 74 69 6f 6e | 0d 09 09 09 62 72 65 61 |lication|....brea|
|00002c30| 6b 3b 0d 09 09 63 61 73 | 65 20 6d 6f 75 73 65 44 |k;...cas|e mouseD|
|00002c40| 6f 77 6e 3a 0d 09 09 09 | 44 6f 4d 6f 75 73 65 28 |own:....|DoMouse(|
|00002c50| 65 29 3b 0d 09 09 09 62 | 72 65 61 6b 3b 0d 09 09 |e);....b|reak;...|
|00002c60| 63 61 73 65 20 6b 65 79 | 44 6f 77 6e 3a 0d 09 09 |case key|Down:...|
|00002c70| 63 61 73 65 20 61 75 74 | 6f 4b 65 79 3a 0d 09 09 |case aut|oKey:...|
|00002c80| 09 69 66 20 28 65 2d 3e | 6d 6f 64 69 66 69 65 72 |.if (e->|modifier|
|00002c90| 73 20 26 20 63 6d 64 4b | 65 79 29 20 7b 0d 09 09 |s & cmdK|ey) {...|
|00002ca0| 09 09 69 66 20 28 65 2d | 3e 77 68 61 74 20 3d 3d |..if (e-|>what ==|
|00002cb0| 20 6b 65 79 44 6f 77 6e | 29 20 7b 0d 09 09 09 09 | keyDown|) {.....|
|00002cc0| 09 44 6f 4d 65 6e 75 28 | 4d 65 6e 75 4b 65 79 28 |.DoMenu(|MenuKey(|
|00002cd0| 28 63 68 61 72 29 28 65 | 2d 3e 6d 65 73 73 61 67 |(char)(e|->messag|
|00002ce0| 65 20 26 20 63 68 61 72 | 43 6f 64 65 4d 61 73 6b |e & char|CodeMask|
|00002cf0| 29 29 29 3b 0d 09 09 09 | 09 7d 0d 09 09 09 7d 0d |)));....|.}....}.|
|00002d00| 09 09 09 62 72 65 61 6b | 3b 0d 09 09 63 61 73 65 |...break|;...case|
|00002d10| 20 6b 48 69 67 68 4c 65 | 76 65 6c 45 76 65 6e 74 | kHighLe|velEvent|
|00002d20| 3a 0d 09 09 09 65 72 72 | 20 3d 20 41 45 50 72 6f |:....err| = AEPro|
|00002d30| 63 65 73 73 41 70 70 6c | 65 45 76 65 6e 74 28 65 |cessAppl|eEvent(e|
|00002d40| 29 3b 09 09 2f 2f 20 44 | 69 73 70 61 74 63 68 20 |);..// D|ispatch |
|00002d50| 69 74 2e 2e 2e 0d 09 09 | 09 62 72 65 61 6b 3b 0d |it......|.break;.|
|00002d60| 09 7d 0d 09 48 69 6c 69 | 74 65 4d 65 6e 75 28 30 |.}..Hili|teMenu(0|
|00002d70| 29 3b 0d 7d 0d 0d 2f 2a | 2a 2a 2a 2a 2a 2a 2a 2a |);.}../*|********|
|00002d80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002d90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002da0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002db0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2f |********|*******/|
|00002dc0| 0d 2f 2a 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |./*.....|........|
|00002dd0| 09 09 09 09 09 2a 2f 0d | 2f 2a 09 4d 61 69 6e 20 |.....*/.|/*.Main |
|00002de0| 65 6e 74 72 79 20 70 6f | 69 6e 74 09 09 09 09 09 |entry po|int.....|
|00002df0| 09 09 09 09 09 09 09 09 | 2a 2f 0d 2f 2a 09 09 09 |........|*/./*...|
|00002e00| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 2a |........|.......*|
|00002e10| 2f 0d 2f 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |/./*****|********|
|00002e20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002e30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002e40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002e50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2f 0d 0d 2f 2a |********|***/../*|
|00002e60| 09 6d 61 69 6e 0d 20 2a | 0d 20 2a 09 09 57 68 65 |.main. *|. *..Whe|
|00002e70| 72 65 20 69 74 20 61 6c | 6c 20 73 74 61 72 74 73 |re it al|l starts|
|00002e80| 2e 0d 20 2a 2f 0d 0d 69 | 6e 74 20 6d 61 69 6e 28 |.. */..i|nt main(|
|00002e90| 29 0d 7b 0d 09 45 76 65 | 6e 74 52 65 63 6f 72 64 |).{..Eve|ntRecord|
|00002ea0| 20 65 76 65 6e 74 3b 0d | 09 0d 09 49 6e 69 74 4d | event;.|...InitM|
|00002eb0| 61 63 69 6e 74 6f 73 68 | 4f 53 28 29 3b 0d 09 47 |acintosh|OS();..G|
|00002ec0| 65 74 4d 61 63 69 6e 74 | 6f 73 68 45 6e 76 69 72 |etMacint|oshEnvir|
|00002ed0| 6f 6e 6d 65 6e 74 28 29 | 3b 0d 09 0d 09 51 75 69 |onment()|;....Qui|
|00002ee0| 74 46 6c 61 67 20 3d 20 | 30 3b 0d 09 69 66 20 28 |tFlag = |0;..if (|
|00002ef0| 46 41 70 70 6c 65 45 76 | 65 6e 74 73 29 20 7b 0d |FAppleEv|ents) {.|
|00002f00| 09 09 52 75 6e 45 76 65 | 6e 74 4c 6f 6f 70 20 3d |..RunEve|ntLoop =|
|00002f10| 20 31 3b 0d 09 09 53 61 | 77 4e 65 77 45 76 65 6e | 1;...Sa|wNewEven|
|00002f20| 74 20 3d 20 30 3b 0d 09 | 09 49 6e 69 74 41 70 70 |t = 0;..|.InitApp|
|00002f30| 6c 65 45 76 65 6e 74 73 | 28 29 3b 0d 09 7d 20 65 |leEvents|();..} e|
|00002f40| 6c 73 65 20 7b 0d 09 09 | 52 75 6e 45 76 65 6e 74 |lse {...|RunEvent|
|00002f50| 4c 6f 6f 70 20 3d 20 31 | 3b 0d 09 09 53 61 77 4e |Loop = 1|;...SawN|
|00002f60| 65 77 45 76 65 6e 74 20 | 3d 20 31 3b 0d 09 09 49 |ewEvent |= 1;...I|
|00002f70| 6e 69 74 4d 65 6e 75 42 | 61 72 28 29 3b 0d 09 7d |nitMenuB|ar();..}|
|00002f80| 0d 0d 09 77 68 69 6c 65 | 20 28 21 51 75 69 74 46 |...while| (!QuitF|
|00002f90| 6c 61 67 29 20 7b 0d 09 | 09 47 65 74 45 76 65 6e |lag) {..|.GetEven|
|00002fa0| 74 28 26 65 76 65 6e 74 | 29 3b 0d 09 09 44 6f 45 |t(&event|);...DoE|
|00002fb0| 76 65 6e 74 28 26 65 76 | 65 6e 74 29 3b 0d 09 7d |vent(&ev|ent);..}|
|00002fc0| 0d 0d 09 45 6e 64 41 70 | 70 6c 65 45 76 65 6e 74 |...EndAp|pleEvent|
|00002fd0| 73 28 29 3b 0d 09 72 65 | 74 75 72 6e 20 30 3b 0d |s();..re|turn 0;.|
|00002fe0| 7d 0d 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |}.......|........|
|00002ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003000| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00003010| 17 2f 2a 66 72 61 67 6d | 65 6e 74 20 69 73 20 6f |./*fragm|ent is o|
|00003020| 6e 20 64 69 73 6b 2a 2f | 00 00 a1 00 64 00 10 4f |n disk*/|....d..O|
|00003030| 08 6d 61 69 6e 2e 63 70 | 70 00 02 00 00 00 50 61 |.main.cp|p.....Pa|
|00003040| 72 74 53 49 54 21 00 00 | 00 00 00 00 00 00 00 00 |rtSIT!..|........|
|00003050| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00003060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003070| 00 00 aa 54 0c 82 00 00 | 00 00 00 00 01 7e 20 61 |...T....|.....~ a|
|00003080| 74 20 66 6f 72 6b 20 73 | 74 61 72 74 2a 2f 00 00 |t fork s|tart*/..|
|00003090| a1 00 64 00 10 4f 4e 4c | 4e 00 64 08 56 02 7a 00 |..d..ONL|N.d.V.z.|
|000030a0| 90 02 86 00 d2 00 28 02 | 83 00 90 0b 6b 57 68 6f |......(.|....kWho|
|000030b0| 6c 65 46 6f 72 6b 2c 00 | a1 00 64 00 10 4f 4e 4c |leFork,.|..d..ONL|
|000030c0| 4e 00 64 08 69 02 7a 01 | 20 02 86 01 e6 00 29 90 |N.d.i.z.| .....).|
|000030d0| 21 2f 2a 66 72 61 67 6d | 65 6e 74 20 6f 63 63 75 |!/*fragm|ent occu|
|000030e0| 70 69 65 73 20 65 6e 74 | 69 72 65 20 66 6f 72 6b |pies ent|ire fork|
|000030f0| 2a 2f 00 00 a1 00 64 00 | 10 4f 4e 4c 4e 00 64 08 |*/....d.|.ONLN.d.|
|00003100| 00 00 00 48 00 09 50 72 | 6f 67 72 61 6d 00 00 00 |...H..Pr|ogram...|
|00003110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003120| 00 00 00 00 00 00 00 03 | 00 04 00 31 01 12 02 4f |........|...1...O|
|00003130| 03 1d 00 31 01 12 02 4f | 03 1d aa 2b 83 d7 00 00 |...1...O|...+....|
|00003140| 24 8a 00 00 24 8a 00 00 | 20 84 01 00 00 00 01 00 |$...$...| .......|
|00003150| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 e6 cc 28 |...L...L|...2...(|
|00003160| 19 58 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.X.....2|..MPSR..|
|00003170| 00 0a 03 ed ff ff 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+